Imports Microsoft.VisualBasic

Namespace MyDAO
    Public Class MyDataUnion
        Public builder As SelectStringBuilder
        Public All As Boolean

        Public Sub New(ByVal builder As SelectStringBuilder)
            Me.New(builder, False)
        End Sub

        Public Sub New(ByVal builder As SelectStringBuilder, ByVal all As Boolean)
            Me.builder = builder
            Me.All = all
        End Sub

        Public Overrides Function ToString() As String
            If Me.All = True Then
                Return String.Format("union all {0}", Me.builder)
            Else
                Return String.Format("union {0}", Me.builder)
            End If

        End Function
    End Class
End Namespace
